home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
aed243a.zip
/
R-PCEDIT.MRG
< prev
next >
Wrap
Text File
|
1990-06-10
|
2KB
|
55 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce R-PCEDIT.BAS
* RBBS-PC.BAS: Date 5-26-1990 Size 156425 bytes
* ------------[ Created 06-10-1990 01:55:35 ]------------
* REPLACING old line(s) by new
* ------[ first line different ]------
2100 GOSUB 2101
IF NOT ZYes THEN _
GOTO 2120
GOTO 2110
* INSERTING new line(s)
2101 ZYes = ZFalse
IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN
ZOutTxt$ = "Use the ANSI Screen Editor (Y,[N])"
GOSUB 12930
END IF
RETURN
2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
I = ZSubParm
CALL SkipLine(1)
IF I = -2 THEN ' Sleep Disconnect
GOTO 10590
ELSEIF I = -1 THEN ' Lost Carrier
GOTO 10595
ELSEIF I = 1 THEN ' Save Message
GOTO 3400
ELSEIF I = 2 THEN ' Abort Message
GOTO 2430
END IF
2120 ZOutTxt$ = "Type " + _
ZMsgHeader$ + _
STR$(ZMaxMsgLines) + _
" lines max" + _
ZPressEnter$
GOSUB 12975
GOSUB 3200
* REPLACING old line(s) by new
4626 ZWasZ$ = "L"
WasL = 1
* ------[ first line different ]------
GOSUB 2101
IF ZYes THEN
GOSUB 2110
ELSE
IF ZLinesInMsg >= ZMaxMsgLines THEN _
CALL QuickTPut ("Msg cannot exceed" + _
STR$(ZMaxMsgLines) + " lines! ",0)
IF NOT MsgFwd THEN _
CALL QuickTPut1 ("C continues reply. Please 1st delete unneeded lines (eg. d 1 5)")
GOSUB 3200
GOSUB 3020
GOSUB 2300
END IF
GOTO 4628